;ufhsqc-42
;avance-version (02/05/31)
;ultrqfqst 2D sequence
;created by Patrick Giraudeau 24/11/2009
;spatially selective acquisition using adiabatic pulse and field gradients
;acquisition including gradient switching
;cf. Frydman, Lupulescu and Scherf, J. Am. Chem. Soc. 2003, 125, 9204-9217


;$CLASS=HighRes
;$DIM=2D
;$TYPE=
;$SUBTYPE=
;$COMMENT=



#include <Avance.incl>
#include <Grad.incl>
#include <De.incl>
"p2=p1*2"
"p4=p3*2"
"d4=1s/(cnst2*4)"
"d10=p20"
"d11=p21"
"p15=(td*dw)/(2*l3)-d6"
"p24=p15"
"d2=3u"
"in2=2*(p15+d6)/td1"

1 ze
  20u st0

21 30m 
	1u reset:f1
  ;10u GRAD_SYNC
  100u 
   30m pl2:f2
  d1 pl1:f1
	100u UNBLKGRAD
 
  p1 ph0
  d4 
  (center (p2 ph1) (p4 ph4):f2 )
  d4
  p1 ph2 
  (p3 ph3):f2

  d10
  10u gron0
  p11:sp1:f2 ph1
  10u groff
  d11
  p20:gp20
	10u gron1
	p11:sp1:f2 ph1
	10u groff
  p21:gp21
  10u

  p2 ph1

  10u
  d10
  10u gron0
  p11:sp1:f2 ph1
  10u groff
  d11
  p20:gp20
	10u gron1
	p11:sp1:f2 ph1
	10u groff
  p21:gp21
  10u pl2:f2

  p24:gp24

	10u
	p23:gp23
	10u

  (p3 ph5):f2
  (p1 ph1) 
  d4
  (center (p2 ph1) (p4 ph4):f2 )

	10u
	p26:gp26
	10u

  p24:gp25
	10u pl12:f2
	10u
	d2
	10u cpds2:f2
	
31 p15:gp15
  d6
  p15:gp16 
  d6 ipp6
  lo to 31 times l3
  10u do:f2
  p27:gp27
  100u BLKGRAD
lo to 21 times l4
  
2 30m 
	1u reset:f1
  ;10u GRAD_SYNC
  100u 
   30m pl2:f2
  d1 pl1:f1
	100u UNBLKGRAD
 
  p1 ph0
  d4 
  (center (p2 ph1) (p4 ph4):f2 )
  d4
  p1 ph2 
  (p3 ph3):f2

  d10
  10u gron0
  p11:sp1:f2 ph1
  10u groff
  d11
  p20:gp20
	10u gron1
	p11:sp1:f2 ph1
	10u groff
  p21:gp21
  10u

  p2 ph1

  10u
  d10
  10u gron0
  p11:sp1:f2 ph1
  10u groff
  d11
  p20:gp20
	10u gron1
	p11:sp1:f2 ph1
	10u groff
  p21:gp21
  10u pl2:f2

  p24:gp24

	10u
	p23:gp23
	10u

  (p3 ph5):f2
  (p1 ph1) 
  d4
  (center (p2 ph1) (p4 ph4):f2 )

	10u
	p26:gp26
	10u

  p24:gp25
	10u pl12:f2
	10u

	10u cpds2:f2

	d2
	10u
  ACQ_START(ph30,ph31)
  1u DWELL_GEN:f1

3 p15:gp15
  d6
  p15:gp16 
  d6 ipp6
  lo to 3 times l3
  10u do:f2
  100u BLKGRAD
  rcyc=2
  100u UNBLKGRAD
  p27:gp27
  100u BLKGRAD
  30m mc #0 to 2 F1QF(id2)
	d17
exit

ph0=0
ph1=0 
ph2=1
ph3=0
ph4=0
ph5=0 2
ph6=0 2 0 0
ph7=1
ph8=3
ph30=0
ph31=0 2


;pl1 : f1 channel ? power level for pulse (default)
;sp1: shaped pulse power level for selective detection
;p1 : f1 channel ? 90 degree high power pulse
;spnam1 : shaped pulse for selective detection
;d1 : relaxation delay; 1-5 * T1
;d11 : short delay
;d12 : delay for spin echo adjusting
;GPZ0 : strength for excitation gradient [0-100]
;GPZ1 : strength for reversed excitation gradient GPZ1 = -GPZ0
;GPZ2 : strength for acquisition gradient [0-100]
;GPZ3 : strength for reversed acquisition gradient GPZ3 = -GPZ2
;NS: 1
;l3=number of loops for acquisition
;IMPORTANT: set d20 + d6 = DW x TD(F2)/(2xL3)

;$Id: zgselgs,v 1.1 2006/05/26 12:17:01 ber Exp $
